home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 1995 Winter / Mac Expert - Winter 95.iso / Les fichiers / Communications / Divers / MacTélécom 1.2.1⁄Shareware ƒ / MacTélécom 1.2.1⁄Shareware / MacTélécom 1.2.1_Shareware / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1994-06-27  |  9.9 KB  |  23 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.1_Shareware</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>4134</cardID>
  8.     <listID>2581</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><true /></cantAbort>
  12.     <cardSize>
  13.         <width>384</width>
  14.         <height>216</height>
  15.     </cardSize>
  16.     <script>on openstackget the cantmodify of meif it = truethenanswer the short name of me &&"est verrouill√©e!"&return¬¨& "Veuillez la d√©verrouiller imm√©diatement pour continuer..."exit to Hypercardend iflock screenput "A propos de MacT√©l√©com..." into menuItem 1 of menu 1 with menuMsg "aboutMactelecom"push this cardset lockmessages to trueif cd fld "Expire" ‚↠emptythenput cd fld "Expire" into compardateconvert the date to dateItemsput item 2 of it into ladatego homeverrouif there is a btn "Mouche"thenget the script of btn "Mouche"if ladate ‚â• itthenbeep 3answer "Votre temps d'√©valuation de cette d√©mo de MacT√©l√©com a expir√©."&¬¨return& "Pour obtenir la version non brid√©e: Envoyer 60,00 F √† Jean-Paul CHICHERET 2, route de Dijon 21600 LONGVIC"Exit to HyperCardelsepop cardend ifelsedomenu "New button"get the number of btnsset the name of btn it to "Mouche"set the script of btn "Mouche"  to compardatehide btn "Mouche"choose browse toolpop cardopenstackend ifelsego homeverrouif there is a btn "Mouche"thenget the script of btn "Mouche"pop cardput it into cd fld "Expire"openstackelseconvert the date to dateItemsput it into ladateput (item 2 of ladate + 2) into compardatedomenu "New button"get the number of btnsset the name of btn it to "Mouche"set the script of btn "Mouche"  to compardatehide btn "Mouche"choose browse toolPop cardput compardate into cd fld "Expire"end ifend ifset lockmessages to falseopenbackgroundset the rect of cd fld "cache4" to "201,74,376,185"end openstackon verroulock screenget the short name of this stackif the cantmodify of this stack = truethenanswer "Votre pile"&&it&&"est v√©rrouill√©e..."&return&"MacT√©l√©com ne peut fonctionner dans ce cas"exit to HyperCardend ifend verrouon envoimessageglobal kidonif msg ‚↠empty and (kidon ‚↠empty)thenPut return&return&"‚Ä¢"&the long date &" - "& the short date&return&msg after fld "Notes" of cd kidonput empty into msghide msgend ifif visible of btn 22 = truethenhide btn 22end ifend envoimessageon resumeStackput "A propos de MacT√©l√©com..." into menuItem 1 of menu 1 with menuMsg "aboutMactelecom"end resumeStackon openPortglobal serialBufferAput cd fld"Bauds" into baudsput cd fld"Bits" into bitsput cd fld"Stop" into stopput cd fld"Parit√©" into paritput cd fld"Flux" into fluxput cd fld"Buffer" into buffput empty into serialBufferAput SerialHandler("open","A",bauds,bits,parit,stop,flux,buff) into serialBufferAend openPorton closePortglobal serialBufferAget SerialHandler("close","A",serialBufferA)end closePorton mouseUplock screenput "LOCAL,‚⧠25,26/30,31/51,51/100,LONG" into leszonesput "#1,#2,#3" into leslignesget the targetif the short name of the target is in leslignesthenrepeat with i = 16 to 18put empty into fld iend repeatput "‚àö" into fld (the short name of the target)end ifif the short name of the target is in leszonesthenif the number of this bg = 2thenrepeat with i = 9 to 14put empty into fld iend repeatput "‚àö" into fld (the short name of the target)put "‚Ä¢" into fld "Mouchard"elseif the number of this bg = 1thenif the icon of btn 1 = 17839thenexit mouseUpend ifrepeat with i = 1 to 6set hilite of btn (item i of leszones) to falseend repeatset hilite of the target to truedo the script of the targetend ifend ifend ifend mouseUpon domenu xif x = "Print Field..."thenbeepexit to HyperCardend ifif x = "New Card"thenif the number of this bg = 1thenbeepexit to HyperCardelseget the number of cds of bg 2if it ‚â• 15thenanswer "Cette version de MacT√©l√©com est limit√©e √† 15 correpondants..."exit to Hypercardpass domenuend ifend ifend ifif x = "Protect Stack..."thenask"Code de protection MacT√©l√©com:"if it = the script of btn 6thenpass domenuelsebeepexit to HyperCardend ifend ifpass domenuend domenuon sortirgo cd 1if visible of btn "Init. modem" = truethencolorizeHC "add",232,"0,50,384,216"if visible of cd fld "Infos" = truethencolorizeHC "erase",the rect of cd fld "Infos"end ifelseopenbackgroundend ifend sortiron closestackclosePortgo cd 1if visible of btn "Init. modem" = truethensend mouseUp to btn "redim"end ifset the rect of cd fld "cache4" to "0,0,384,216"put empty into cd fld 11put empty into cd fld "Connexion"put empty into cd fld "Connexion/Fin2"put empty into cd fld "Connexion/Fin"put empty into cd fld "cache2"hide btn 22set the icon of btn 1 to 17838ColorizeHc "erase"pass closeStackend closestackon aboutMactelecomif the optionkey = downthenanswer "Contre les factures trop √©l√©v√©es!"& return &¬¨"Un grand MERCI √†:" & return &"                - Eric NICOLIER"& return &"                - Mic STRUPICHOWICZ"& return &"                - Bruno COCQUIO"& return &¬¨"qui m' aident √† combattre l'ennemi ! :-)"elseanswer "MacT√©l√©com 1.2.1 ‚Äî 14 mars 1994." & return &"     Version Shareware √† 60,00 F"& return & return &¬¨"¬© Jean-Paul CHICHERET" & return & "     2, route de Dijon 21600 LONGVIC" & return &"     Fax: (33) 80 31 87 82 / T√©l: (33) 80 67 14 99"end ifend aboutMactelecomon import filenameif fileName is emptythenanswer file "Donn√©es √† r√©int√©grer" of type "TEXT"if the result is "Annuler" or it is emptythenexit to hyperCardelseput it into fileNameend ifend iflock screenopen file fileNameread from file fileName for 1000000put it into datatextclose file fileNameset itemdelimiter to tabrepeat with i = 2 to the number of lines of datatextset cursor to busyset lockmessages to truego bg 2domenu "New Card"put "Cr√©ation de:"&&item 1 of line i of datatextrepeat with a = 1 to 8put item a of line i of datatext into fld aend repeatrepeat with b = 9 to 14if item b of line i of datatext = empty or (item b of line i of datatext = " ")thenPut empty into fld belsePut "‚àö" into fld bput "‚Ä¢" into fld "Mouchard"end ifend repeatset the name of this cd to fld 1if item 15 of line i of datatext = empty or (item 15 of line i of datatext = " ")thenbeepelseput ("#"&item 15 of line i of datatext) into quelnumput "‚àö" into fld quelnumend ifsend closefield to fld 1end repeatput empty into msghide msgend importon exportask file"Nom du fichier √† exporter"with"MacT√©l√©com-"&The short dateif it = emptythenexit exportelseput "Nom & pr√©nom"&tab&"Soci√©t√©"&tab&"Adresse"&tab&"Code postal"&tab&"Ville"&tab&"T√©l #1"&tab&"T√©l #2"&tab&"T√©l #3"&tab&"LOCAL"&tab&"‚⧠25"&tab&¬¨"26/30"&tab&"31/51"&tab&"51/100"&tab&"LONG"&tab&"Num√©ro auto (1,2 ou 3)" into Datarepeat with i = 2 to the number of  cardsset cursor to busygo cd iif the marked of cd i = truethenput return&(the short name of cd i) after datarepeat with a = 2 to 14put tab&fld a of cd i into rectifput  " " into char offset(return,rectif) of rectifput rectif after dataend repeatrepeat with b = 16 to 18if fld b of cd i ‚↠emptythenput the short name of fld b into choixdelete char 1 of choixput tab&choix after dataexit repeatelsenext repeatend ifend repeatend ifend repeatopen file itwrite data to file itclose file itend ifend exporton exporterglobal kidonconvert (cd fld "Connexion") to secondsPut it into d√©butconvert (cd fld "Connexion/Fin2") to secondsPut it into finput (fin-d√©but) into totaltempsput cd fld "Connexion/Fin" into data0put  "," into char offset(".",data0) of data0if hilite of btn 10 = truethenput "Longue distance (> 100 kms)" into varend ifif hilite of btn 4 = truethenput "Entre 26 et 30 kms" into varend ifif hilite of btn 5 = truethenput "Communication locale" into varend ifif hilite of btn 7 = truethenput "Apr√®s la circonscription jusqu'√† ‚⧠25 kms" into varend ifif hilite of btn 8 = truethenput "Entre 31 et 51 kms" into varend ifif hilite of btn 9 = truethenput "Entre 51 et 100 kms" into varend ifput ("MacT√©l√©com/"&word 3 of the long date) into lenomopen file lenomread from file lenom for 1000000put it into lignesget the number of lines of lignesif it ‚â• 15thenput return&"Version limit√©e de MacT√©l√©com: Merci d'envoyez 60,00 FF √† Jean-Paul CHICHERET, 2 route de DIJON 21600 LONGVIC" after dataelseput cd fld "Connexion/Fin2" into led√©butput cd fld "Connexion" into lafinset itemdelimiter to ":"if item 1 of led√©but < item 1 of lafinthenadd "24" to item 1 of led√©butend ifput (item 1 of led√©but * 3600)+(item 2 of led√©but * 60)+(item 3 of led√©but) into var1subtract (item 1 of lafin * 3600)+(item 2 of lafin * 60)+(item 3 of lafin) from var1set numberformat to "00"put (var1 div 3600)&":"&((var1 mod 3600)div 60)&":"&((var1 mod 3600)mod 60) into totaltempsput (return&the long date&tab&var&tab&kidon&tab&cd fld "Connexion"&tab& cd fld "Connexion/Fin2"&tab&totaltemps&tab&data0) after dataend ifwrite data to file lenomclose file lenomend exporter</script>
  17.     <background id="2483" file="background_2483.xml" name="Correspondants" />
  18.     <background id="3841" file="background_3841.xml" name="" />
  19.     <card id="4134" file="card_4134.xml" marked="false" name="aA" owner="3841" />
  20.     <card id="2980" file="card_2980.xml" marked="false" name="CHICHERET Jean-Paul" owner="2483" />
  21.     <card id="2098" file="card_2098.xml" marked="false" name="Viking Direct" owner="2483" />
  22. </stack>
  23.